unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ufrLDGridOra, cxGraphics, cxControls, cxLookAndFeels,
  cxLookAndFeelPainters, cxStyles, cxCustomData, cxFilter, cxData,
  cxDataStorage, cxEdit, DB, cxDBData, DBAccess, Ora, MemDS, dxBar,
  cxGridCustomPopupMenu, cxGridPopupMenu, DBActns, ActnList, cxGridLevel,
  cxClasses, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
  cxGridDBTableView, cxGrid, ExtCtrls, StdCtrls;

type
  TfrLDGridOra4 = class(TfrLDGridOra)
    OraSession1: TOraSession;
    DBGridTRM_ID: TcxGridDBColumn;
    DBGridTRM_NM: TcxGridDBColumn;
    DBGridTRM_ACCOUNT_NN: TcxGridDBColumn;
    DBGridTRM_ADDRESS_NM: TcxGridDBColumn;
    DBGridAGENT_ID: TcxGridDBColumn;
    DBGridTERMINAL_TYPE_KD: TcxGridDBColumn;
    DBGridTRM_TIP_MESTA_KD: TcxGridDBColumn;
    DBGridTRM_CITY_KD: TcxGridDBColumn;
    DBGridTRM_PHONE: TcxGridDBColumn;
    DBGridTRM_AGENT_ID: TcxGridDBColumn;
    DBGridTRM_INSERT_DT: TcxGridDBColumn;
    DBGridTRM_DELETE_BL: TcxGridDBColumn;
    DBGridTRM_ERROR_ACC: TcxGridDBColumn;
    DBGridIMPUT_ACCOUNT_DT: TcxGridDBColumn;
    DBGridTRM_SERIAL: TcxGridDBColumn;
    DBGridISNEAP_BL: TcxGridDBColumn;
    Button1: TButton;
    procedure DBGridSelectionChanged(Sender: TcxCustomGridTableView);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frLDGridOra4: TfrLDGridOra4;

implementation

{$R *.dfm}

procedure TfrLDGridOra4.DBGridSelectionChanged(Sender: TcxCustomGridTableView);
var i:integer;
    st:string;
begin
  ClearSelect;

  for i := 0 to pred(SelectCount)  do
    st := st+vartostr(Selected[i])+';';
  Caption := st;  
  
end;

end.
